home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / obero / oberobje.lha / ooTest.mod < prev   
Text File  |  1996-12-23  |  3KB  |  120 lines
  1. MODULE ooTest;
  2.  
  3. IMPORT oo:=OberObjects, SYS:= SYSTEM, Dos, i:=Intuition, gt := GadTools;
  4.  
  5. TYPE
  6.     MyOberWin       = POINTER TO MyOberWinDesc;
  7.     MyOberWinDesc   = RECORD (oo.OberWindowDesc) END;
  8.  
  9. VAR
  10.     TestWindow : MyOberWin;
  11.     TestTags : oo.ObjTags;
  12.     NW : oo.OberWindow;
  13.     gady : oo.OberObject;
  14.     Active, Processed : LONGINT;
  15.     canvas : oo.OberCanvas;
  16.  
  17. PROCEDURE (ob : MyOberWin) OnCloseWindow (msg : i.IntuiMessagePtr) : INTEGER;
  18. BEGIN
  19.     oo.ReplyMsg(msg);
  20.     RETURN oo.StopAll;
  21. END OnCloseWindow;
  22.  
  23. PROCEDURE Cancel * (ob : oo.OberObject; code : INTEGER);
  24. VAR obgad : oo.OberObject;
  25. BEGIN
  26.     Dos.PrintF("Cancel callback\n", NIL); 
  27.     obgad := oo.GetObject("Group1");
  28.     obgad.Show;
  29.     TestWindow.RefreshWindow;
  30. END Cancel;
  31.  
  32. PROCEDURE DblClk * (ob: oo.OberObject; code : INTEGER);
  33. BEGIN
  34.     HALT(0);
  35. END DblClk;
  36.  
  37. PROCEDURE OK * (ob : oo.OberObject; code : INTEGER);
  38. VAR obgad : oo.OberObject;
  39.     text : ARRAY 50 OF CHAR;
  40. BEGIN
  41.     Dos.PrintF("OK callback, Special Code = %ld\n", code);
  42.     ob.GetText(text);
  43.     Dos.PrintF("Gadget Text = %s\n", SYS.ADR(text));
  44.     obgad := oo.GetObject("Group1");
  45.     obgad.Hide;
  46.     TestWindow.RefreshWindow;
  47. END OK;
  48.  
  49. PROCEDURE GadHelp * (ob : oo.OberObject; code : INTEGER);
  50. VAR text : ARRAY 255 OF CHAR;
  51. BEGIN
  52.     Dos.PrintF("GadHelp callback, code = %ld\n", code);
  53.     (* ob(oo.OberGadget).GetText(text); *)
  54.     Dos.PrintF("Gadget Name = %s\n", ob.Name);
  55. END GadHelp;
  56.  
  57. PROCEDURE (ob : MyOberWin) OnCreate;
  58.  
  59. VAR
  60.     msgad : oo.OberListView;
  61.     hjgad : oo.OberPushButton;
  62.     megrp : oo.OberGroupBox;
  63. BEGIN
  64.     ob.SetTitle("Booo!");
  65.     ob.SetDimensions(100, 200, 200, 200);
  66.     ob.SetMinSize(50, 50);
  67.     ob.SetMaxSize(300, 300);
  68.  
  69. (*    NEW(msgad); NEW(hjgad); NEW(megrp);
  70.     megrp.Init("Group1", NIL, ob);
  71.     msgad.Init("Button1", NIL, megrp);
  72.     hjgad.Init("Button2", NIL, ob);
  73.  
  74.     Dos.PrintF("Creating Gads\n", NIL);
  75.     megrp.SetDimensions(20,40,100,100);
  76.     megrp.SetText("MyGroup");
  77.     megrp.Show;
  78.  
  79.     msgad.SetDimensions(6,5,60,40);
  80.     msgad.SetAttr(gt.lvShowSelected, 0);
  81.     msgad.AddLabel("_Hello");
  82.     msgad.AddLabel("_good");
  83.     msgad.AddLabel("Boo!");
  84.     msgad.SetText("_good");
  85.     msgad.Show;
  86.  
  87.     hjgad.SetText("_Can");
  88.     hjgad.SetDimensions(20,150,60,20);
  89.     hjgad.Show;
  90.  
  91.     msgad.SetCallback(OK);
  92.     hjgad.SetCallback(Cancel);
  93.     hjgad.SetDblClkCallback(DblClk);
  94.     msgad.SetGadHelpCallback(GadHelp);
  95.     hjgad.SetGadHelpCallback(GadHelp);
  96.  
  97.     ob.SetHelpGroup(NIL);
  98.     ob.SetGadHelpCallback(GadHelp);
  99. *)
  100. END OnCreate;
  101.  
  102.  
  103. BEGIN
  104.     NEW(TestWindow);
  105.     TestWindow.Init("Main Window", NIL, NIL);
  106.     TestWindow.Show;
  107.  
  108.     NEW(canvas);
  109.     canvas.Init("Canvas", NIL, TestWindow);
  110.     canvas.Show;
  111.     canvas.MoveTo(20,20);
  112.     canvas.WriteText("Hello World");
  113.     TestWindow.Activate;
  114.     Dos.Delay(50);
  115.     canvas.Scroll(0,10);
  116.  
  117.  
  118.     oo.Do;
  119. END ooTest.
  120.